home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 051-075 / scopedisk58 / ifexists / startup-sequence < prev    next >
Text File  |  1995-03-19  |  3KB  |  135 lines
  1. ;STARTUP.1   STARTUP-SEQUENCE AS OF OCTOBER 15, 1988
  2. ;ARP VERSION 1.1
  3.  
  4.    path sys:system add
  5. BindDrivers
  6. set copyflags=CN ESCAPE \  ; original dates and filenotes
  7. addbuffers df2: 50
  8. cd df0:c
  9. ;prompt "%N %p"
  10. prompt "\e[0;33;1m%n> \e[m%p"
  11.  
  12. FAILAT 25
  13. ifexists DPaint:
  14. if NOT ERROR
  15.    CD DPaint:
  16.    X go_dpaint    ; I have renamed EXECUTE to X
  17.    info
  18.    SKIP NOTASKS
  19. endif
  20.  
  21. arun gomf1.0      ; for what its worth, which isn't much
  22. setfont pearl     ; or your favorite font
  23.  
  24. FAILAT 25
  25. ifexists BASIC:
  26. if NOT ERROR
  27.    CD BASIC:
  28.    info
  29.    SKIP NOTASKS
  30. endif
  31.  
  32. FAILAT 25
  33. ifexists Digi-View:
  34. if NOT ERROR
  35.    CD Digi-View:
  36.    FAILAT 25
  37.    ifexists DH:        ;I have labeled my archive disks DH: for storage
  38.    if NOT ERROR        ;of .pic files with paint programs and digiview.
  39.      assign DH0: DH:   ;this allows clicking on the load/save requestor
  40.    endif               ;where it says DH: or DH0:
  41.    Digi-View:digi-view
  42.    SKIP NOTASKS
  43. endif
  44.  
  45. STACK 32000
  46.  
  47. FAILAT 25
  48. ifexists DH:
  49. if NOT ERROR
  50.    CD DH:
  51.    SKIP NOTASKS
  52. endif
  53.  
  54. ;the above tasks need lots of memory so no sticky ram
  55. ;following tasks want VD0: so we mount it now
  56.  
  57. ASK "\X9B7mMOUNT VD0: ? Y/N\X9B0m" "N" "Y" TIMEOUT 30
  58. if  NOT WARN
  59.   Mount VD0:
  60.     if NOT EXISTS VD0:C
  61.        ASK "\X9B7mSET the Date ? Y/N\X9B0m" "Y" "N" TIMEOUT 30
  62.        if WARN
  63.          date
  64.          date ?
  65.          date > df0:datefile
  66.        ELSE
  67.        date < df0:datefile
  68.        endif
  69.       Makedir VD0:c
  70.       echo "Copying the c directory to VD0:c"
  71.       copy df0:c to VD0:c all quiet
  72.     endif
  73. assign c: VD0:c               ;often used files are in c:
  74. path reset vd0:c sys:system   ;others have been moved to sys:system
  75. cd VD0:
  76. info
  77.      if exists VD0:ww
  78.         CD vd0:
  79.         ww
  80.         SKIP NOTASKS
  81.      endif
  82.  
  83. ELSE
  84. SKIP NOTASKS
  85. endif
  86.  
  87. FAILAT 25
  88. ifexists WordWright:
  89. IF NOT ERROR
  90.    copy WordWright:ww to VD0:
  91.    copy WordWright:spell to vd0: all
  92.    ww
  93.    SKIP NOTASKS
  94. endif
  95.  
  96. FAILAT 25
  97. ifexists WRK_2:
  98. IF NOT ERROR
  99. cd WRK_2:
  100. execute go_QB
  101.    SKIP NAGLAB
  102. endif
  103.  
  104. FAILAT 25
  105. ifexists ONLINE!:go_ONLINE!          ;modem software
  106.     if NOT ERROR
  107.      CD ONLINE!:
  108.      FAILAT 25
  109.      ifexists ONLINE!:U
  110.       if NOT ERROR
  111.         if NOT EXISTS VD0:c/arc
  112.           ONLINE!:blitzfonts
  113.           copy ONLINE!:U to VD0:c all
  114.          endif
  115.     endif
  116.   arun machII -rAH -fdf0:s/arc.key  PRI -5
  117.    execute ONLINE!:go_ONLINE!
  118.    list
  119.    skip NOTASKS
  120. endif
  121.  
  122. LAB NAGLAB
  123.  
  124. ASK "\X9B7mRun MachII? <no for ONLINE!> Y/N\X9B0m" "N" "Y" TIMEOUT 10
  125. IF not WARN
  126.    arun machII  -rAH -fdf0:s/mach.config PRI -5
  127. endif
  128.  
  129. ARUN SYS:system/nag PRI -4     ;Naging appointment calendar
  130. info
  131.  
  132. cd ram:
  133. LAB NOTASKS
  134. RESIDENT c:type c:copy
  135.